; Music of Paperboy (1987) (Elite)
; Ripped by Megachur the 02/05/2009

	write "PAPERBOY.BIN"

music_date_rip	equ &0259
music_adr	equ &b1a0
first_theme	equ 0
last_theme	equ 3	; 0 -> 3

	read "music_header_v1_0.asm"

.lb1a7 equ $ + 7
.lb1a6 equ $ + 6
.lb1a5 equ $ + 5
.lb1a4 equ $ + 4
.lb1a3 equ $ + 3
.lb1a2 equ $ + 2
.lb1a1 equ $ + 1
.lb1a0
	db #0f,#19,#00,#00,#01,#00,#00,#00
.lb1af equ $ + 7
.lb1ae equ $ + 6
.lb1ad equ $ + 5
.lb1ac equ $ + 4
.lb1ab equ $ + 3
.lb1aa equ $ + 2
.lb1a8
	db #00,#00,#0f,#c8,#00,#00,#01,#00
.lb1b7 equ $ + 7
.lb1b6 equ $ + 6
.lb1b5 equ $ + 5
.lb1b4 equ $ + 4
.lb1b2 equ $ + 2
.lb1b1 equ $ + 1
.lb1b0
	db #00,#02,#00,#00,#0f,#55,#02,#00
.lb1be equ $ + 6
.lb1bc equ $ + 4
.lb1bb equ $ + 3
.lb1ba equ $ + 2
.lb1b9 equ $ + 1
.lb1b8
	db #01,#00,#00,#02,#00,#00,#00,#00
.lb1c7 equ $ + 7
.lb1c6 equ $ + 6
.lb1c5 equ $ + 5
.lb1c4 equ $ + 4
.lb1c3 equ $ + 3
.lb1c2 equ $ + 2
.lb1c1 equ $ + 1
.lb1c0
	db #00,#00,#00,#00,#0a,#3e,#00,#01
.lb1ce equ $ + 6
.lb1cd equ $ + 5
.lb1cc equ $ + 4
.lb1cb equ $ + 3
.lb1ca equ $ + 2
.lb1c9 equ $ + 1
.lb1c8
	db #01,#04,#01,#01,#03,#01,#43,#b6
.lb1d0
	db #00
.lb1d1
	ld d,#00
	ld e,#08
	ld a,(lb1ca)
	and #01
	jp z,lb1e3
	ld hl,lb1a0
	call lb210
.lb1e3
	ld a,(lb1ca)
	and #02
	jp z,lb1f1
	ld hl,lb1aa
	call lb210
.lb1f1
	ld a,(lb1ca)
	and #04
	jp z,lb1ff
	ld hl,lb1b4
	call lb210
.lb1ff
	ld a,(lb1c5)
	ld c,#07
	call lb225
	ld a,(lb1c4)
	ld c,#06
	call lb225
	ret
.lb210
	db #7e
	inc hl
	ld c,e
	inc e
	call lb225
	ld a,(hl)
	inc hl
	ld c,d
	inc d
	call lb225
	ld a,(hl)
	ld c,d
	inc d
	call lb225
	ret
.lb225
	push af
	push bc
	nop
	ld b,a
	ld a,c
	ld c,b
	ld b,#f4
	out (c),a
	ld a,#c0
	ld b,#f6
	out (c),a
	xor a
	out (c),a
	ld b,#f4
	out (c),c
	ld bc,#f680
	out (c),c
	out (c),a
	pop bc
	pop af
	nop
	ret
.lb248 equ $ + 1
.lb247
	db #00,#00
.lb249
	ld d,a
	and #0f
	sla a
	ld b,#00
	ld c,a
	ld ix,lb29b
	add ix,bc
	ld a,(ix+#00)
	ld (lb247),a
	ld a,(ix+#01)
	ld (lb248),a
	ld a,d
	and #70
	srl a
	srl a
	srl a
	srl a
	cp #05
	jr z,lb29a
	jr c,lb28a
	or a
	ld hl,lb247
	srl (hl)
	inc hl
	rr (hl)
	cp #06
	jr z,lb29a
	or a
	dec hl
	srl (hl)
	inc hl
	rr (hl)
	jr lb29a
.lb28a
	ld b,a
	ld a,#05
	sub b
	ld b,a
.lb28f
	ld hl,lb248
	sla (hl)
	dec hl
	rl (hl)
	inc hl
	djnz lb28f
.lb29a
	ret
.lb29b
	db #00,#00,#00,#77,#00,#71,#00,#6a
	db #00,#64,#00,#5f,#00,#59,#00,#54
	db #00,#50,#00,#4b,#00,#47,#00,#43
	db #00,#3f,#04,#03,#02,#01,#00
.lb2ba
	ld a,(lb1cd)
	dec a
	ld (lb1cd),a
	cp #00
	ret nz
	ld a,(lb1cc)
	ld (lb1cd),a
	ld hl,(lb1ce)
	ld a,(hl)
	cp #ff
	ret z
	ld (lb1a0),a
	inc hl
	ld (lb1ce),hl
	ld c,#08
	call lb225
	ret
	push af	; play interrupt music
	ld a,(lb1c7)
	dec a
	ld (lb1c7),a
	cp #00
	jr z,lb2ec
	pop af
	ret
.lb2ec
	push bc
	push de
	push hl
	push ix
	push iy
	ld a,#01
	ld (lb1c7),a
	call lb2ba
	call lb307
	pop iy
	pop ix
	pop hl
	pop de
	pop bc
	pop af
	ret
.lb307
	ld a,(lb1c8)
	dec a
	ld (lb1c8),a
	ret nz
	ld a,(lb1c9)
	ld (lb1c8),a
	ld a,(lb1cb)
	and #01
	jp z,lb381
.lb31d
	ld a,(lb1a3)
	cp #00
	jp nz,lb568
	ld a,(lb1a4)
	dec a
	ld (lb1a4),a
	cp #00
	jr z,lb342
	ld hl,lb1a7
	cp (hl)
	jp nz,lb381
	jp nc,lb381
	ld a,#00
	ld (lb1d0),a
	jp lb381
.lb342
	ld hl,(lb1a5)
	ld a,(hl)
	cp #00
	jp z,lb450
	cp #c8
	jp c,lb358
	cp #f0
	jp c,lb4ef
	jp lb568
.lb358
	ld (lb1a4),a
	inc hl
	ld a,(hl)
	inc hl
	ld (lb1a5),hl
	cp #00
	jp nz,lb36c
	call lb4d4
	jp lb381
.lb36c
	call lb249
	ld a,(lb247)
	ld (lb1a2),a
	ld a,(lb248)
	ld (lb1a1),a
	ld hl,lb643
	ld (lb1ce),hl
.lb381
	ld a,(lb1cb)
	and #02
	jp z,lb3e2
	ld a,(lb1ad)
	cp #00
	jp nz,lb569
	ld a,(lb1ae)
	dec a
	ld (lb1ae),a
	cp #00
	jr z,lb3a9
	ld hl,lb1b1
	cp (hl)
	call z,lb4dd
	call c,lb4dd
	jp lb3e2
.lb3a9
	ld hl,(lb1af)
	ld a,(hl)
	cp #00
	jp z,lb47c
	cp #c8
	jp c,lb3bf
	cp #f0
	jp c,lb520
	jp lb569
.lb3bf
	ld (lb1ae),a
	inc hl
	ld a,(hl)
	inc hl
	ld (lb1af),hl
	cp #00
	jp nz,lb3d3
	call lb4dd
	jp lb3e2
.lb3d3
	call lb249
	ld a,(lb247)
	ld (lb1ac),a
	ld a,(lb248)
	ld (lb1ab),a
.lb3e2
	ld a,(lb1cb)
	and #04
	jp z,lb44c
	ld a,(lb1b7)
	cp #00
	jp z,lb3f8
	call lb56a
	jp lb44c
.lb3f8
	ld a,(lb1b8)
	dec a
	ld (lb1b8),a
	cp #00
	jr z,lb410
	ld hl,lb1bb
	cp (hl)
	call z,lb4e6
	call c,lb4e6
	jp lb44c
.lb410
	ld hl,(lb1b9)
	ld a,(hl)
	cp #00
	jp z,lb4a8
	cp #c8
	jp c,lb429
	cp #f0
	jp c,lb541
	call lb56a
	jp lb44c
.lb429
	ld (lb1b8),a
	inc hl
	ld a,(hl)
	inc hl
	ld (lb1b9),hl
	cp #00
	jp nz,lb43d
	call lb4e6
	jp lb44c
.lb43d
	call lb249
	ld a,(lb247)
	ld (lb1b6),a
	ld a,(lb248)
	ld (lb1b5),a
.lb44c
	call lb1d1
	ret
.lb450
	ld hl,(lb1a8)
	ld a,(hl)
	cp #00
	jr nz,lb460
	inc hl
	ld a,(hl)
	cp #00
	jr z,lb474
	dec hl
	ld a,(hl)
.lb460
	ld (lb1a5),a
	inc hl
	ld a,(hl)
	ld (lb1a6),a
	inc hl
	ld (lb1a8),hl
	ld a,#01
	ld (lb1a4),a
	jp lb31d
.lb474
	ld hl,lb66f
	ld (lb1a8),hl
	jr lb450
.lb47c
	ld hl,(lb1b2)
	ld a,(hl)
	cp #00
	jr nz,lb48c
	inc hl
	ld a,(hl)
	cp #00
	jr z,lb4a0
	dec hl
	ld a,(hl)
.lb48c
	ld (lb1af),a
	inc hl
	ld a,(hl)
	ld (lb1b0),a
	inc hl
	ld (lb1b2),hl
	ld a,#01
	ld (lb1ae),a
	jp lb381
.lb4a0
	ld hl,lb697
	ld (lb1b2),hl
	jr lb47c
.lb4a8
	ld hl,(lb1bc)
	ld a,(hl)
	cp #00
	jr nz,lb4b8
	inc hl
	ld a,(hl)
	cp #00
	jr z,lb4cc
	dec hl
	ld a,(hl)
.lb4b8
	ld (lb1b9),a
	inc hl
	ld a,(hl)
	ld (lb1ba),a
	inc hl
	ld (lb1bc),hl
	ld a,#01
	ld (lb1b8),a
	jp lb3e2
.lb4cc
	ld hl,lb6f3
	ld (lb1bc),hl
	jr lb4a8
.lb4d4
	ld a,#00
	ld (lb1a2),a
	ld (lb1a1),a
	ret
.lb4dd
	ld a,#00
	ld (lb1ac),a
	ld (#00ab),a
	ret
.lb4e6
	ld a,#00
	ld (lb1b6),a
	ld (lb1b5),a
	ret
.lb4ef
	cp #c8
	jr nz,lb4fb
	inc hl
	ld a,(hl)
	ld (lb1a0),a
	jp lb514
.lb4fb
	cp #da
	jr nz,lb507
	inc hl
	ld a,(hl)
	ld (lb1a7),a
	jp lb514
.lb507
	cp #de
	jp nz,lb514
	ld a,#00
	ld (lb1ca),a
	nop
	nop
	or c
.lb514
	inc hl
	ld (lb1a5),hl
	ld a,#01
	ld (lb1a4),a
	jp lb31d
.lb520
	cp #c8
	jr nz,lb52c
	inc hl
	ld a,(hl)
	ld (lb1aa),a
	jp lb535
.lb52c
	cp #da
	jr nz,lb535
	inc hl
	ld a,(hl)
	ld (lb1b1),a
.lb535
	inc hl
	ld (lb1af),hl
	ld a,#01
	ld (lb1ae),a
	jp lb381
.lb541
	cp #c8
	jr nz,lb54d
	inc hl
	ld a,(hl)
	ld (lb1b4),a
	jp lb556
.lb54d
	cp #da
	jr nz,lb556
	inc hl
	ld a,(hl)
	ld (lb1bb),a
.lb556
	inc hl
	ld (lb1b9),hl
	ld a,#01
	ld (lb1b8),a
	jp lb3e2
.lb562
	ld e,#b6
	ld e,#b6
	ld e,#b6
.lb568
	ret
.lb569
	ret
.lb56a
	ld (lb1c1),a
	ld a,(lb1b7)
	cp #00
	jp nz,lb5cb
	inc hl
	ld a,(hl)
	ld (lb1c0),a
	inc hl
	ld (lb1b9),hl
	ld a,(lb1c1)
	ld (lb1b7),a
	sub #f0
	sla a
	ld hl,lb562
	ld b,#00
	ld c,a
	add hl,bc
	ld b,h
	ld c,l
	ld a,(bc)
	ld l,a
	inc bc
	ld a,(bc)
	ld h,a
	ld a,(lb1c5)
	ld (lb1c6),a
	ld a,(lb1b4)
	ld (lb1c3),a
	ld a,(hl)
	cp #00
	jp z,lb5b9
	ld b,#df
	ld a,(lb1c5)
	and b
	ld (lb1c5),a
	ld a,#01
	ld (lb1c2),a
	jp lb5c7
.lb5b9
	ld b,#fb
	ld a,(lb1c5)
	and b
	ld (lb1c5),a
	ld a,#00
	ld (lb1c2),a
.lb5c7
	inc hl
	ld (lb1be),hl
.lb5cb
	ld a,(lb1c0)
	dec a
	ld (lb1c0),a
	cp #00
	jp z,lb5fe
	ld hl,(lb1be)
	ld a,(hl)
	ld (lb1b4),a
	inc hl
	ld a,(lb1c2)
	cp #00
	jp z,lb5ee
	ld a,(hl)
	ld (lb1c4),a
	jp lb5f6
.lb5ee
	ld a,(hl)
	ld (lb1b6),a
	inc hl
	ld (lb1b5),a
.lb5f6
	inc hl
	ld (lb1be),hl
	call lb1d1
	ret
.lb5fe
	ld a,(lb1c6)
	ld (lb1c5),a
	ld a,(lb1c3)
	ld (lb1b4),a
	ld a,#01
	ld (lb1b8),a
	ld a,#00
	ld (lb1b7),a
	ld (lb1b6),a
	ld (lb1b5),a
	call lb1d1
	ret
	db #01,#0f,#01,#0e,#1e,#0d,#01,#0c
	db #1e,#0b,#01,#0a,#1e,#09,#01,#08
	db #1e,#07,#01,#06,#1e,#05,#01,#04
	db #1e,#03,#01,#02,#1e,#02,#01,#01
.lb643 equ $ + 5
	db #1e,#01,#01,#00,#1e,#0c,#0e,#0d
	db #0c,#0c,#0c,#0c,#0c,#0b,#0b,#0b
	db #0b,#0b,#0b,#0a,#0a,#0a,#0a,#0a
	db #0a,#0a,#09,#09,#09,#09,#08,#08
	db #08,#07,#07,#07,#06,#06,#06,#05
	db #05,#04,#04,#03,#03,#02,#01,#00
	db #ff
.lb671 equ $ + 2
.lb66f
	dw lb794,lb79c,lb79c,lb7ee
	dw lb7ee,lb844,lb79c,lb7ee
	dw lb844,lb89a,lb794,lb794
	dw lb794,lb794,lb8c4,lb916
	dw lb96c,lb794,#0000,#0000
.lb699 equ $ + 2
.lb697
	dw lb9b2,lb9b2,lb9b2,lb9b2
	dw lb9b2,lb9b2,lb9b2,lb9b2
	dw lb9b2,lb9b2,lb9b2,lb9b2
	dw lb9b2,lb9b2,lb9b2,lb9b2
	dw lb9b2,lb9b2,lb9b2,lb9b2
	dw lb9b2,lb9b2,lb9b2,lb9b2
	dw lb9b2,lb9b2,lb9b2,lb9f8
	dw lb9b2,lb9b2,lb9b2,lba1e
	dw lba1e,lba1e,lba1e,lba1e
	dw lba1e,lba1e,lba1e,lba1e
	dw lba1e,lba60,lba60,lb9b2
.lb6f5 equ $ + 6
.lb6f3 equ $ + 4
	dw #0000,#0000,lbaa2,lbaa2
	dw lbaa2,lbaa2,lbaa2,lbaa2
	dw lbaa2,lbaa2,lbaa2,lbaa2
	dw lbaa2,lbaa2,lbaa2,lbaa2
	dw lbaa2,lbaa2,lbaa2,lbaa2
	dw lbaa2,lbaa2,lbaa2,lbaa2
	dw lbaa2,lbaa2,lbaa2,lbaa2
	dw lbaa2,lbac8,lbaa2,lbaa2
	dw lbaa2,lbaee,lbaee,lbaee
	dw lbaee,lbaee,lbaee,lbaee
	dw lbaee,lbaee,lbaee,lbb10
	dw lbb10,lbaa2,#0000,#0000
;
.init_music0
;
	ld a,#07
	ld (lb1ca),a
	ld (lb1cb),a
	ld a,#38
	ld (lb1c5),a
	ld a,#01
	ld (lb1a4),a
	ld (lb1ae),a
	ld (lb1b8),a
	ld a,#03	; #12 modified by Megachur
	ld (lb1c9),a
	ld (lb1c8),a
	ld hl,lb794
	ld (lb1a5),hl
	ld hl,lb671
	ld (lb1a8),hl
	ld hl,lb9b2
	ld (lb1af),hl
	ld hl,lb699
	ld (lb1b2),hl
	ld hl,lbaa2
	ld (lb1b9),hl
	ld hl,lb6f5
	ld (lb1bc),hl
	ret
.lb794
	db #c8,#0d,#da,#02,#40,#00,#00,#00
.lb79c
	db #08,#00,#04,#58,#02,#5a,#06,#5b
	db #04,#5a,#04,#58,#04,#56,#08,#00
	db #04,#56,#02,#54,#06,#56,#04,#54
	db #04,#51,#04,#4b,#30,#51,#10,#00
	db #08,#00,#04,#58,#02,#5a,#06,#5b
	db #04,#5a,#04,#58,#04,#56,#08,#00
	db #04,#56,#02,#54,#06,#56,#04,#54
	db #04,#51,#04,#4b,#02,#51,#02,#4b
	db #02,#51,#02,#4b,#02,#51,#02,#4b
	db #02,#51,#02,#4b,#20,#51,#10,#00
.lb7ee equ $ + 2
	db #00,#00,#02,#58,#02,#57,#02,#54
	db #02,#58,#02,#57,#02,#54,#02,#58
	db #02,#57,#02,#54,#02,#58,#02,#57
	db #02,#54,#02,#58,#02,#57,#02,#54
	db #02,#58,#02,#57,#02,#54,#02,#58
	db #02,#57,#02,#54,#02,#58,#02,#57
	db #02,#54,#02,#58,#02,#57,#02,#54
	db #02,#58,#02,#57,#02,#54,#02,#58
	db #02,#57,#04,#54,#04,#53,#04,#51
	db #04,#4a,#02,#51,#02,#54,#02,#51
	db #02,#54,#20,#51,#08,#00,#00,#00
.lb844
	db #06,#5b,#02,#5a,#06,#58,#02,#5a
	db #06,#5b,#02,#5a,#06,#58,#02,#56
	db #04,#56,#04,#54,#04,#56,#02,#54
	db #06,#56,#04,#54,#04,#51,#04,#4b
	db #30,#51,#10,#00,#06,#5b,#02,#5a
	db #06,#58,#02,#5a,#06,#5b,#02,#5a
	db #06,#58,#02,#56,#04,#56,#04,#54
	db #04,#56,#02,#54,#06,#56,#04,#54
	db #04,#51,#04,#4b,#02,#51,#02,#54
	db #02,#51,#02,#54,#02,#51,#02,#54
.lb89a equ $ + 6
	db #24,#51,#10,#00,#00,#00,#04,#53
	db #04,#53,#04,#53,#02,#52,#04,#51
	db #02,#51,#04,#51,#04,#51,#04,#52
	db #04,#53,#04,#53,#04,#53,#02,#52
	db #04,#51,#02,#51,#04,#51,#04,#51
	db #04,#4b,#30,#48,#10,#00,#00,#00
.lb8c4
	db #08,#00,#04,#61,#02,#63,#06,#64
	db #04,#63,#04,#61,#04,#5b,#08,#00
	db #04,#5b,#02,#59,#06,#5b,#04,#59
	db #04,#56,#04,#54,#30,#56,#10,#00
	db #08,#00,#04,#61,#02,#63,#06,#64
	db #04,#63,#04,#61,#04,#5b,#08,#00
	db #04,#5b,#02,#59,#06,#5b,#04,#59
	db #04,#56,#04,#54,#02,#56,#02,#54
	db #02,#56,#02,#54,#02,#56,#02,#54
	db #02,#56,#02,#54,#20,#56,#10,#00
.lb916 equ $ + 2
	db #00,#00,#06,#64,#02,#63,#06,#61
	db #02,#63,#06,#64,#02,#63,#06,#61
	db #02,#5b,#04,#5b,#04,#59,#04,#5b
	db #02,#59,#06,#5b,#04,#59,#04,#56
	db #04,#54,#30,#56,#10,#00,#06,#64
	db #02,#63,#06,#61,#02,#63,#06,#64
	db #02,#63,#06,#61,#02,#5b,#04,#5b
	db #04,#59,#04,#5b,#02,#59,#06,#5b
	db #04,#59,#04,#56,#04,#54,#02,#56
	db #02,#59,#02,#56,#02,#59,#02,#56
	db #02,#59,#24,#56,#10,#00,#00,#00
.lb96c
	db #02,#38,#02,#3c,#02,#43,#02,#3c
	db #02,#43,#02,#48,#02,#43,#02,#48
	db #02,#4c,#02,#48,#02,#4c,#02,#53
	db #02,#4c,#02,#53,#02,#58,#02,#53
	db #02,#58,#02,#5c,#02,#58,#02,#5c
	db #02,#63,#02,#5c,#02,#63,#02,#68
	db #02,#63,#02,#68,#02,#6c,#02,#68
	db #02,#6c,#02,#73,#04,#79,#18,#78
.lb9b2 equ $ + 6
	db #18,#48,#10,#00,#00,#00,#c8,#0b
	db #da,#01,#02,#41,#02,#48,#02,#45
	db #02,#48,#02,#41,#02,#48,#02,#45
	db #02,#48,#02,#41,#02,#48,#02,#45
	db #02,#48,#02,#41,#02,#48,#02,#45
	db #02,#48,#02,#46,#02,#51,#02,#4a
	db #02,#51,#02,#46,#02,#51,#02,#4a
	db #02,#51,#02,#46,#02,#51,#02,#4a
	db #02,#51,#02,#46,#02,#51,#02,#4a
.lb9f8 equ $ + 4
	db #02,#51,#00,#00,#04,#4c,#04,#4c
	db #04,#4c,#02,#4b,#04,#4a,#02,#4a
	db #04,#4a,#04,#4a,#04,#4b,#04,#4c
	db #04,#4c,#04,#4c,#02,#4b,#04,#4a
	db #02,#4a,#04,#4a,#04,#4a,#04,#48
.lba1e equ $ + 2
	db #00,#00,#02,#46,#02,#4a,#02,#51
	db #02,#46,#02,#4a,#02,#51,#02,#46
	db #02,#4a,#02,#51,#02,#46,#02,#4a
	db #02,#51,#02,#46,#02,#4a,#02,#51
	db #02,#4a,#02,#46,#02,#4b,#02,#53
	db #02,#46,#02,#4b,#02,#53,#02,#46
	db #02,#4b,#02,#53,#02,#46,#02,#4b
	db #02,#53,#02,#46,#02,#4b,#02,#53
.lba60 equ $ + 4
	db #02,#4b,#00,#00,#02,#38,#02,#43
	db #02,#3c,#02,#43,#02,#38,#02,#43
	db #02,#3c,#02,#43,#02,#38,#02,#43
	db #02,#3c,#02,#43,#02,#38,#02,#43
	db #02,#3c,#02,#43,#02,#38,#02,#43
	db #02,#3c,#02,#43,#02,#38,#02,#43
	db #02,#3c,#02,#43,#02,#38,#02,#43
	db #02,#3c,#02,#43,#02,#38,#02,#43
.lbaa2 equ $ + 6
	db #02,#3c,#02,#43,#00,#00,#c8,#0d
	db #da,#02,#08,#21,#f0,#06,#02,#28
	db #02,#2b,#02,#28,#04,#21,#f0,#04
	db #04,#18,#08,#26,#f2,#06,#02,#31
	db #02,#34,#02,#31,#04,#26,#f0,#04
.lbac8 equ $ + 4
	db #04,#21,#00,#00,#04,#28,#04,#28
	db #04,#28,#02,#27,#04,#26,#02,#26
	db #04,#26,#04,#26,#04,#27,#04,#28
	db #04,#28,#04,#28,#02,#27,#04,#26
	db #02,#26,#04,#26,#04,#26,#04,#24
.lbaee equ $ + 2
	db #00,#00,#08,#16,#f0,#06,#02,#21
	db #02,#24,#02,#21,#04,#16,#f0,#04
	db #04,#14,#08,#1b,#f0,#06,#02,#26
	db #02,#29,#02,#26,#04,#1b,#f0,#04
.lbb10 equ $ + 4
	db #04,#19,#00,#00,#08,#18,#f0,#06
	db #02,#23,#02,#26,#02,#23,#04,#18
	db #f0,#04,#04,#13,#08,#18,#f0,#06
	db #02,#23,#02,#26,#02,#23,#04,#18
	db #f0,#04,#04,#13,#00,#00,#9b,#bb
.lbb34
	db #c4,#bb,#9b,#bb,#d0,#bb,#00,#00
.lbb40 equ $ + 4
	db #00,#00,#e4,#bb,#4a,#bc,#e4,#bb
	db #6c,#bc,#00,#00,#00,#00,#ae,#bc
.lbb4c
	db #14,#bd,#ae,#bc,#36,#bd,#00,#00
	db #00,#00
;
.init_music1
;
	ld a,#07
	ld (lb1ca),a
	ld (lb1cb),a
	ld a,#38
	ld (lb1c5),a
	ld a,#01
	ld (lb1a4),a
	ld (lb1ae),a
	ld (lb1b8),a
	ld a,#02
	ld (lb1c9),a
	ld (lb1c8),a
	ld hl,lbb9b
	ld (lb1a5),hl
	ld hl,lbb34
	ld (lb1a8),hl
	ld hl,lbbe4
	ld (lb1af),hl
	ld hl,lbb40
	ld (lb1b2),hl
	ld hl,lbcae
	ld (lb1b9),hl
	ld hl,lbb4c
	ld (lb1bc),hl
	ret
.lbb9b
	db #c8,#0b,#da,#01,#10,#4c,#08,#4a
	db #08,#48,#10,#53,#10,#4a,#10,#55
	db #08,#57,#08,#58,#02,#57,#02,#55
	db #1c,#53,#10,#55,#08,#53,#08,#51
	db #02,#53,#02,#51,#1c,#4c,#00,#00
	db #00,#10,#4c,#08,#4a,#08,#48,#18
	db #4a,#08,#00,#00,#00,#18,#51,#04
	db #53,#04,#51,#08,#4c,#08,#4a,#08
	db #48,#08,#47,#38,#48,#08,#00,#00
.lbbe4 equ $ + 1
	db #00,#c8,#0b,#da,#01,#04,#38,#04
	db #3c,#04,#43,#04,#48,#04,#43,#04
	db #3c,#04,#38,#04,#3c,#04,#37,#04
	db #3a,#04,#43,#04,#47,#04,#43,#04
	db #3a,#04,#37,#04,#3a,#04,#35,#04
	db #38,#04,#3c,#04,#45,#04,#3c,#04
	db #38,#04,#35,#04,#38,#04,#33,#04
	db #37,#04,#3a,#04,#43,#04,#3a,#04
	db #37,#04,#33,#04,#37,#04,#31,#04
	db #35,#04,#38,#04,#41,#04,#38,#04
	db #35,#04,#31,#04,#35,#04,#2c,#04
	db #33,#04,#38,#04,#3c,#04,#38,#04
	db #33,#04,#2c,#04,#33,#00,#00,#04
	db #36,#04,#3a,#04,#41,#04,#3a,#04
	db #36,#04,#3a,#04,#41,#04,#3a,#04
	db #33,#04,#37,#04,#3a,#04,#43,#04
	db #3a,#04,#37,#04,#33,#04,#37,#00
	db #00,#04,#2a,#04,#31,#04,#35,#04
	db #3a,#04,#35,#04,#31,#04,#2a,#04
	db #31,#04,#33,#04,#37,#04,#3a,#04
	db #43,#04,#3a,#04,#37,#04,#33,#04
	db #37,#04,#2c,#04,#33,#04,#38,#04
	db #3c,#04,#31,#04,#35,#04,#38,#04
	db #41,#04,#2c,#04,#33,#04,#38,#04
	db #3c,#04,#38,#04,#33,#04,#2c,#04
.lbcae equ $ + 3
	db #33,#00,#00,#c8,#0c,#da,#01,#04
	db #28,#04,#28,#f0,#04,#04,#23,#04
	db #28,#04,#28,#f0,#04,#04,#23,#04
	db #27,#04,#27,#f0,#04,#04,#27,#04
	db #27,#04,#27,#f0,#04,#04,#27,#04
	db #25,#04,#25,#f0,#04,#04,#1c,#04
	db #25,#04,#25,#f0,#04,#04,#1c,#04
	db #23,#04,#23,#f0,#04,#04,#1a,#04
	db #23,#04,#23,#f0,#04,#04,#1a,#04
	db #21,#04,#21,#f0,#04,#04,#18,#04
	db #21,#04,#21,#f0,#04,#04,#18,#04
	db #1c,#04,#1c,#f0,#04,#04,#1c,#04
	db #1c,#04,#1c,#f0,#04,#04,#1c,#00
	db #00,#04,#26,#04,#26,#f0,#04,#04
	db #21,#04,#26,#04,#26,#f0,#04,#04
	db #21,#04,#23,#04,#23,#f0,#04,#04
	db #1a,#04,#23,#04,#23,#f0,#04,#04
	db #1a,#00,#00,#04,#1a,#04,#1a,#f0
	db #04,#04,#15,#04,#1a,#04,#1a,#f0
	db #04,#04,#1a,#04,#23,#04,#23,#f0
	db #04,#04,#1a,#04,#23,#04,#23,#f2
	db #04,#04,#1a,#04,#28,#04,#28,#f0
	db #04,#04,#28,#04,#28,#04,#28,#f0
	db #04,#04,#28,#04,#28,#04,#28,#f0
	db #04,#04,#23,#04,#28,#04,#28,#f0
.lbd7a equ $ + 7
	db #04,#04,#23,#00,#00,#db,#bd,#db
	db #bd,#0f,#be,#00,#00,#00,#00,#14
.lbd84 equ $ + 1
	db #be,#14,#be,#0f,#be,#00,#00,#00
.lbd8e equ $ + 3
	db #00,#4e,#be,#4e,#be,#82,#be,#00
	db #00,#00,#00
;
.init_music2
;
	ld a,#07
	ld (lb1ca),a
	ld (lb1cb),a
	ld a,#38
	ld (lb1c5),a
	ld a,#01
	ld (lb1a4),a
	ld (lb1ae),a
	ld (lb1b8),a
	ld a,#01
	ld (lb1c9),a
	ld (lb1c8),a
	ld hl,lbddb
	ld (lb1a5),hl
	ld hl,lbd7a
	ld (lb1a8),hl
	ld hl,lbe14
	ld (lb1af),hl
	ld hl,lbd84
	ld (lb1b2),hl
	ld hl,lbe4e
	ld (lb1b9),hl
	ld hl,lbd8e
	ld (lb1bc),hl
	ret
.lbddb
	db #c8,#0d,#da,#02,#04,#55,#04,#58
	db #04,#55,#04,#58,#04,#55,#04,#59
	db #04,#55,#04,#59,#04,#55,#04,#5a
	db #04,#55,#04,#5a,#04,#55,#04,#5a
	db #04,#55,#04,#5a,#04,#61,#04,#5a
	db #04,#61,#04,#5a,#08,#5c,#04,#61
	db #04,#63,#00,#00,#20,#61,#de,#00
.lbe14 equ $ + 1
	db #00,#c8,#0c,#da,#01,#04,#51,#04
	db #55,#04,#51,#04,#55,#04,#4c,#04
	db #55,#04,#4c,#04,#55,#04,#52,#04
	db #55,#04,#52,#04,#55,#04,#52,#04
	db #55,#04,#52,#04,#55,#04,#57,#04
	db #51,#04,#57,#04,#51,#08,#58,#04
	db #5a,#04,#5c,#00,#00,#20,#55,#04
.lbe4e equ $ + 3
	db #00,#00,#00,#c8,#0d,#da,#01,#04
	db #21,#04,#31,#04,#28,#04,#31,#04
	db #25,#04,#2c,#04,#29,#04,#2c,#04
	db #2a,#04,#3a,#04,#35,#04,#3a,#04
	db #2a,#04,#3a,#04,#35,#04,#3a,#04
	db #23,#04,#27,#04,#23,#04,#17,#08
	db #28,#04,#2a,#04,#2c,#00,#00,#20
.lbe8a equ $ + 7
	db #31,#04,#00,#00,#00,#f1,#be,#37
	db #bf,#f1,#be,#37,#bf,#00,#00,#00
.lbe96 equ $ + 3
	db #00,#7a,#bf,#90,#bf,#7a,#bf,#90
.lbea2 equ $ + 7
	db #bf,#00,#00,#00,#00,#a2,#bf,#c8
	db #bf,#a2,#bf,#c8,#bf,#00,#00,#00
	db #00
;
.init_music3
;
	ld a,#07
	ld (lb1ca),a
	ld (lb1cb),a
	ld a,#38
	ld (lb1c5),a
	ld a,#01
	ld (lb1a4),a
	ld (lb1ae),a
	ld (lb1b8),a
	ld a,#01
	ld (lb1c9),a
	ld (lb1c8),a
	ld hl,lbef1
	ld (lb1a5),hl
	ld hl,lbe8a
	ld (lb1a8),hl
	ld hl,lbf7a
	ld (lb1af),hl
	ld hl,lbe96
	ld (lb1b2),hl
	ld hl,lbfa2
	ld (lb1b9),hl
	ld hl,lbea2
	ld (lb1bc),hl
	ret
.lbef1
	db #c8,#0d,#da,#02,#04,#3a,#04,#3c
	db #00,#41,#04,#3a,#04,#3c,#04,#41
	db #04,#43,#04,#3c,#04,#41,#04,#43
	db #04,#45,#04,#41,#04,#3c,#04,#43
	db #04,#41,#04,#3c,#04,#3a,#04,#3c
	db #04,#41,#04,#3a,#04,#3c,#04,#41
	db #04,#43,#04,#3c,#04,#41,#04,#43
	db #04,#45,#04,#41,#04,#3c,#04,#43
	db #04,#41,#04,#3c,#00,#00,#04,#43
	db #04,#45,#04,#46,#04,#43,#04,#45
	db #04,#46,#04,#48,#04,#45,#04,#46
	db #04,#48,#04,#4a,#04,#46,#04,#45
	db #04,#48,#04,#46,#04,#45,#04,#43
	db #04,#45,#04,#46,#04,#43,#04,#45
	db #04,#46,#04,#48,#04,#45,#04,#46
	db #04,#48,#04,#4a,#04,#46,#04,#45
	db #04,#48,#04,#46,#04,#45,#00,#00
.lbf7a equ $ + 1
	db #00,#c8,#0c,#da,#01,#10,#55,#10
	db #56,#10,#57,#10,#56,#10,#55,#10
	db #56,#10,#57,#10,#56,#00,#00,#10
	db #5a,#10,#5b,#10,#5c,#10,#5b,#10
	db #5a,#10,#5b,#10,#5c,#10,#5b,#00
.lbfa2 equ $ + 1
	db #00,#c8,#0e,#da,#01,#08,#1a,#08
	db #25,#08,#1a,#08,#26,#08,#1a,#08
	db #27,#08,#1a,#08,#26,#08,#1a,#08
	db #25,#08,#1a,#08,#26,#08,#1a,#08
	db #27,#08,#1a,#08,#26,#00,#00,#08
	db #23,#08,#2a,#08,#23,#08,#2b,#08
	db #23,#08,#2c,#08,#23,#08,#2b,#08
	db #23,#08,#2a,#08,#23,#08,#2b,#08
	db #23,#08,#2c,#08,#23,#08,#2b,#00
	db #00,#d9,#0d,#01,#50,#00,#00,#e1
	db #0d,#a5,#15,#a2,#b9,#8d,#7f,#87
	db #77,#a2,#b9,#89,#7f,#98,#00
;
.play_music	; added by Megachur
;
	call lb2ba
	jp lb307
;
.init_music	; added by Megachur
;
	or a
	jp z,init_music0
	dec a
	jp z,init_music1
	dec a
	jp z,init_music2
	jp init_music3
;
.game_name
	db "Paperboy",0
.game_year
	db "1987",0
.game_publisher
	db "Elite",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
